The Netherlands - A Compact World/The Netherlands.iso/chapters/1.2.2.dxr/Internal_30_bouwop.ls

Text File | 2004-06-10 | 591 b | 19 lines

on bouwop tophoogte
  spritelijst = []
  tellertje = 20
  repeat while tellertje <= 50
    if the memberNum of sprite tellertje > 0 then
      set the locH of sprite tellertje to 390
      set the locV of sprite tellertje to tophoogte
      spritelijst.addAt(tellertje, tophoogte)
      welkmember = sprite(tellertje).memberNum
      if member(welkmember, 1).type = #field then
        tophoogte = tophoogte + (member(welkmember).lineCount * 14)
      else
        tophoogte = tophoogte + the height of sprite tellertje
      end if
    end if
    tellertje = 1 + tellertje
  end repeat
end